Első n darab négyzetszám előltesztelő (while) ciklussal (Negyzetszam.pas)
program Negyzetszam;
uses crt;
var i,a,n,k:integer;
BEGIN
write('n:=');
readln(n);
i:=1;
a:=1;
a = kiírandó szám, azaz sorozatelem
k:=3;
k = növekmény, amit mindig növelni kell 2-vel
while(i<=n) do begin
writeln(a);
a:=a+k;
a-hoz hozzáadjuk az aktuális növekményt
k:=k+2;
A növekményt növeljük 2-vel.
i:=i+1;
end;
END.
Első n darab négyzetszám for ciklussal (NegyzetszamV1.pas)
program NegyzetszamV1;
uses crt;
var i,a,n,k:integer;
BEGIN
write('n:=');
readln(n);
a:=1;
k:=3;
for i:=1 to n do begin
writeln(a);
a:=a+k;
k:=k+2;
end;
END.
Első n darab négyzetszám hátultesztelő (repeat - until) ciklussal (NegyzetszamV2.pas)
program NegyzetszamV2;
uses crt;
var i,a,n,k:integer;
BEGIN
write('n:=');
readln(n);
i:=1;
a:=1;
k:=3;
repeat
writeln(a);
a:=a+k;
k:=k+2;
i:=i+1;
until(i>n);
END.